home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / ffccflow / ffccflow.lha / ffccc+flow / flow / caschg.for next >
Text File  |  1992-07-31  |  729b  |  24 lines
  1.       SUBROUTINE CASCHG(CINP,COUT)
  2. C! Convert any lower case to upper
  3.       INCLUDE 'params.h'
  4.       CHARACTER*(*) CINP
  5.       CHARACTER*(*) COUT
  6.       CHARACTER*1 CUP(26),CLO(26)
  7.       DATA CUP /'A','B','C','D','E','F','G','H','I','J','K','L','M',
  8.      &          'N','O','P','Q','R','S','T','U','V','W','X','Y','Z'/
  9.       DATA CLO /'a','b','c','d','e','f','g','h','i','j','k','l','m',
  10.      &          'n','o','p','q','r','s','t','u','v','w','x','y','z'/
  11.       LEN = LENOCC(CINP)
  12.       COUT = CINP
  13.       DO 1 I=1,LEN
  14.         DO 2 J=1,26
  15.           IF(CINP(I:I).EQ.CLO(J)) THEN
  16.             COUT(I:I) = CUP(J)
  17.             GOTO 3
  18.           ENDIF
  19.    2    CONTINUE
  20.         COUT(I:I) = CINP(I:I)
  21.    3  CONTINUE
  22.    1  CONTINUE
  23.       END
  24.